home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
R-Shows
/
(c)woc iii 85.d64
/
ghoul dogs.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
349b
|
15 lines
100 IF SW=1 THEN SYS 49152: CLR: END
110 PRINT "PLUG JOYSTICK INTO PORT 2"
120 PRINT " C[146]OLOUR M[146]ONOCHROME"
130 GET A$
140 IF A$<>"C" AND A$<>"M" GOTO 130
150 SW=1: PRINT "[145] ";
160 IF A$<>"C" GOTO 190
170 PRINT "COLOUR"
180 LOAD "GD/COLOUR.M",8,1
190 PRINT TAB(11) "MONOCHROME"
200 LOAD "GD/MONOCHROME.M",8,1
210 :
220 BOTH OF THESE FINISHED PROGRAMS
230 (null) FROM $C000 TO $CA84 INCLUSIVE